﻿Imports DAO
Imports DTO
Public Class BanBUS
    Dim banDAO As New BanDAO()
    Public Function LayDanhSachBanBUS() As List(Of BanDTO)
        Return banDAO.LayDanhSachBanDAO()
    End Function

    Public Function LayThongTinBanBUS(ByVal maBan As Integer) As BanDTO
        Return banDAO.LayThongTinBanDAO(maBan)
    End Function

    Public Function CapNhatTrangThaiBanDangSuDungBUS(ByVal _banDTO As BanDTO) As Integer
        Return banDAO.CapNhatTrangThaiBanDangSuDungDAO(_banDTO)
    End Function

    Public Sub ThemBanBUS(ByVal _loai As Integer)
        banDAO.ThemBanDAO(_loai)
    End Sub

    Public Sub SuaBanBUS(ByVal _maBan As Integer, ByVal _loai As Integer)
        banDAO.SuaBanDAO(_maBan, _loai)
    End Sub

    Public Sub XoaBanBUS(ByVal _maBan As Integer)
        banDAO.XoaBanDAO(_maBan)
    End Sub



End Class
